'Customize FaceID in ToolBar
'Change "Open" pic with BMP
Sub ChangeBtnFace()
    Dim Pic As stdole.StdPicture
    Dim picMask As IPictureDisp
    Set Pic = stdole.StdFunctions.LoadPicture("c:\temp\1.gif")
    Set picMask = stdole.StdFunctions.LoadPicture("c:\temp\1.gif")
    With Application.CommandBars("Standard").Controls(2)
        .Picture = Pic
        .Mask = picMask
    End With
End Sub
Sub Reset()
    With Application.CommandBars("Standard").Controls(2)
        .FaceId = 23
    End With
End Sub
